home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 September & October / Amiga-CD 1997 #9-10.iso / software / tp5demo / publisher-steuerung < prev    next >
AmigaDOS Script File  |  1978-01-11  |  3KB  |  112 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "copy"
  8.     set vcopy 1
  9. endif
  10. if "[param]" EQ "assign"
  11.     set vassign 1
  12. endif
  13. if "[param]" EQ "unassign"
  14.     set vunassign 1
  15. endif
  16. if "[param]" EQ "start"
  17.     set vassign 1
  18.     set vstart 1
  19.     set vunassign 1
  20. endif
  21. set bcopy        1
  22. set bassign      1
  23. set bunassign    1
  24. set bstart       1
  25.  
  26.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  27.     set nummer 0
  28.     if $bcopy EQ 1
  29.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  30.          set nummer `eval $nummer + 1`
  31.          set ncopy $nummer
  32.     endif
  33.     if $bassign EQ 1
  34.          echo >>t:tmpsteuerung " Assign" NOLINE
  35.          set nummer `eval $nummer + 1`
  36.          set nassign $nummer
  37.     endif
  38.     if $bunassign EQ 1
  39.          echo >>t:tmpsteuerung " Unassign" NOLINE
  40.          set nummer `eval $nummer + 1`
  41.          set nunassign $nummer
  42.     endif
  43.     if $bstart EQ 1
  44.          echo >>t:tmpsteuerung " Start" NOLINE
  45.          set nummer `eval $nummer + 1`
  46.          set nstart $nummer
  47.     endif
  48.     if "[param]" EQ ""
  49.         echo >>t:tmpsteuerung " Ende" NOLINE
  50.         execute >nil: t:tmpsteuerung
  51.         delete >nil: t:tmpsteuerung
  52.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  53.         if $reqerg[$$] EQ 0
  54.             skip Ende
  55.         endif
  56.     endif
  57.     if $reqerg[$$] EQ $ncopy
  58.         set vcopy 1
  59.     endif
  60.     if $reqerg[$$] EQ $nassign
  61.         set vassign 1
  62.     endif
  63.     if $reqerg[$$] EQ $nunassign
  64.         set vunassign 1
  65.     endif
  66.     if $reqerg[$$] EQ $nstart
  67.         set vassign 1
  68.         set vstart 1
  69.         set vunassign 1
  70.     endif
  71. endif
  72.  
  73. if $vassign EQ 1
  74. ;>>>>>>>> Hier steht das Assign
  75.     Assign >nil: TurboPrint: :Software/tp5demo/
  76.     if $vstart NOT EQ 1
  77.         :c/requestchoice20 >nil: Information "Assign angelegt!" OK
  78.     endif
  79. endif
  80. if $vstart EQ 1
  81. ;>>>>>>>> Hier steht das Startprogramm
  82.     :Software/tp5demo/GrafikPublisher
  83. endif
  84. if $vunassign EQ 1
  85. ;>>>>>>>> Hier steht das Unassign
  86.     Assign >nil: TurboPrint: remove
  87.     if $vstart NOT EQ 1
  88.         :c/requestchoice20 >nil: Information "Assign entfernt!" OK
  89.     endif
  90. endif
  91. if $vcopy EQ 1
  92.     execute :c/Verzeichniskopieren ":Software/tp5demo/" "tp5demo" 739328
  93. endif
  94.  
  95. unset bassign
  96. unset bunassign
  97. unset vassign
  98. unset vunassign
  99. unset nassign
  100. unset nunassign
  101. unset bstart
  102. unset vstart
  103. unset nstart
  104. unset bcopy
  105. unset vcopy
  106. unset ncopy
  107. if "[param]" EQ ""
  108.     execute Publisher-Steuerung
  109. endif
  110. LAB Ende
  111. unsetenv reqerg[$$]
  112.